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TSIilO: 



.TITLE TSMIO — TSX-Plus Mapped I/O Support 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSMIO 

. RAD50 /MIO/ ,; Overlay region id 



TSMIO is the TSX~Plus system overlay that contains the routines 
used to perform mapped I/O operations for devices with 18~bit 
controllers running on 22'-bit Q-bus systems. 

Copyright < c ) 1983, 19S4. 
SZ<H Computer Systems, Int. 
Nashville, Tennessee USA 
Ail rights reserved. 

Global definitions 

. GLOBL MIOCHK 

Global references 

. GLOBL Q. FUNC, VPAR6, «. COMP, Q. CSW, GETSYQ, Q. BUFF 

. GLOBL MIOMWT, MIOMRD, Q. WCNT, Q. DEVX, lOQSIZ 

. GLOBL DVSTAT, DS$ID, SYQIO, Q. PAR, VMIOSZ, S*QMID, QNSPNX, CHKABT 

. GLOBL CORUSR, UREGO, Q. BLKN, Q. JOB, Q. JNUM, PSW, IWTPRI, lOCMPL 

. GLOBL DI*DY, DI*MM, DI*MS, MIOBHD, MI$LNK, Q. CHAN, MI*SBP 

. GLOBL MI*TRW, MI$0«E, MI*RWF, MI*UBP, MI*UBO> MI*CWC, MI*JOB 

GLOBL C. CSW, CS^ERR, CS*EOF, DI*MT, DI*DX, MIODBG 

. GLOBL Q. FLAG, QF*MID, QF*OWC, EM«MIO 

. GLOBL MIOWHD, MIOSYQ, MW*LNK, MW«IOQ, Q. UCSW 

Macro definitions 

Macro to disable device interrupts 

. MACRO DISABL 
BIS #340, @#PBW 
. ENDM DISABL 

Macro to enable interrupts 

. MACRO ENABL 

BIG INTPRI,@#PSW 

. ENDM ENABL 

Macro to print an error message when a system crash occurs. 

Arguments: 
MfJG - Name of error messr3ge to print. 
ARG = <Optional) arciument value to display with error message. 

. GLOBL DIEMSG, DIEARG, SYSHLT 

.MACRO DIE MSG, ARG 

MOV MSG, @#DIEMGG 

. IF NB, ARG 

MOV ARG, @#DIEARG 
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000002 
000004 
000006 
000010 
000012 



000014 



000024 
000030 



000032 
000036 



000040 
000044 
000050 
000054 
000056 
000060 
000064 
000066 
000070 
000072 
000074 
000 1 00 



010146 
010246 
010346 
1 0446 
010546 



132761 
001123 



116102 
001520 



116103 
001443 



016204 
042704 
042703 
000303 
050304 
012700 
020420 
001001 
000130 
005720 
020027 
103771 



. SBTTL MIOCHK — Determine if I/O operation should be mapped 

MIOCHK is called whenever an I/O operation is about to be queued 

for an IS-bit device that may potentially need mapping. 

MIOCHK checks to see if the operation is a Read or Write request that 

needs mapping and checks to see if the user's buffer is already 

in the low 24SK memory art^a. 

I n p u t s : 
Rl = Address of I/O quf?ue element. 

Outputs: 
C-flag cleared ==> Don't need to do mapping; queue request normally. 
C--fiag set ==."> Must map operation* don't queue current request. 



MIOCHK: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
R3, -(SP) 
R4, -<SP) 
R5, -(SP) 



0000000 0000000 



0000000 



0000000 



0000000 

ooooooc 

1 77400 



000310' 



1*: 



000450 



See if we are reentering MIOCHK with a queue element that has 
already been worked on by MIOCHK. 

BITB #QF*MIO, Q. FLAG<R1); Has this I/O operation already been mapped? 
BNE NOMAP ;Br if yes 

Set device index number 

MOVB Q. DEVX(R1.), R2 J Get device index number 

BE<3 NOMAP i Br if this operation has been cancelled 

Determine if a . SPFUN is being queued 

MOVB Q. FUNC(R1 ). R3 ils this a .SPFUN operation? 
BEG 3* i Br if not 

This is a .SPFUN operation. 

Check to see if this operation must be treated specially. 

Get device status flags 

Clear all but device id 

Clear sign extension of special fun code 

Put special function code in high order 

Combine function code with device id 

Get pointer to device/function table 

Try to find device-id/f unction-code combo 

Br if this is not it 

Enter special processing routine 

Point to next table entry 

Checked all entries? 

Loop if not 

We don't recognize the .SPFUN code as one that requires special 

device-dependent processing. 

Treat . SPFUN 376 as a write and 377 as read. 



MOV 


DVSTAT<R2)> 


R4 


BIC 


#"C<DS$ID>, 


R4 


BIC 


#-X377, R3 




SWAB 


R3 




BIS 


R3, R4 




MOV 


#DEVTBL, RO 




CMP 


R4, (R0)+ 




BNE 


2* 




JMP 


e(RO)+ 




TST 


<R0) + 




CMP 


RO, #DEVEND 




BLO 


1* 
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i 



009102 
000104 
000110 
000112 
000116 



000120 
000124 
000126 
000130 
000134 
000142 



000146 
000152 
000154 



000156 
000160 
000164 



000166 
000172 
000176 



000200 
000204 
000210 
000214 
000220 



000232 
000236 
000240 
000244 
000246 
000252 



000303 
120327 
001426 
120327 
00 1417 



120327 
001007 
005003 
012702 
152761 
000416 



000144 000452 



005761 
002405 
001446 



005003 
016102 

00040:; 



012703 
016102 
005402 



016105 
162705 
062705 
072527 
066105 
010200 
062700 
072027 
06000^3 
005727 
00 1 003 
020527 
101407 



000376 
000377 



000373 



000001 

ooooooe 



OOOOOOG 



000000<3 



000001 
0000000 



OOOOOOG 
OOOOOOG 
000077 
1 77772 
OOOOOOG 

000037 
177773 

OOOOOOG 

007600 



i Get back function code 

i Is this a lUT^i te? 

i Br if yes 

; Is this a read? 

i Br if yes 



Treat . SPFUW 373 as a request to get the device size 



SWAB 


R3 


CMPB 


R3, #376 


BEQ 


WRTFUN 


CMPB 


R3. #377 


BEQ 


RDFUN 



OOOOOOG 



CMPB 

BNE 

CLR 

MOV 

BISB 

BR 



R3, #373 
4* 
R3 
#1, R2 



; Request to get device size? 
; Br if not 

; Say this is a read operation 
j Say 1 word is being read 



#QF$OWC, 0. FLAG(R1 ) ; Set flag saying to use original word count 
CHKBUF ; Process the operation 



This special function can be processed without mapping 

4$: BR NOMAP ; No mapping required 

This is not a . SPFUN requpBt. 

Determine if it is a .READ, .WRITE, or (.SEEK) 



3$: TST Q. WCNT(Rl) 

BLT WRTFUN 

BEQ NOMAP 

This is a read request 

RDFUN: CLR R3 

MOV Q. WCNT<R1), R2 

BR CHKBUF 

Thif> is a write request 



; Read/Write/Seek? 

J Br if write operation 

> Seek operation 



> Set read flag 

; Get word count for read 



WRTFUN: MOV 
MOV 
NEG 



#1, R3 

Q. WCNT(R1),R2 

R2 



; Set write flag 
; Get word count 
i Stored negative to signal write 



€ 
€ 



At this point we have determined that data is going to be read 
or written and have the positive word count in R2. 
Check to see if the buffer is entirely below 256Kb. 

Get user's buffer virtual address 

Remove virtual buffer bias 

Bound up to next 64-byte block 

Convert address of 64-byte block # 

Add base 64~byte block # 

Get word count 

Bound up to 64-byte block size 

Convert to # 64-byte blocks 

Compute 64-byte block # of top of buffer 

Are we to map all operationsT' 

Br if yes 

Is buffer entirely below 24SKb? 

Br if yes — Mapping not needed 

We must do buffer mapping for this I/O operation 



F: MOV 


Q. BUFF<Ri),R5 


SUB 


#VPAR6, R5 


ADD 


#63. , R5 


ASH 


#-6. , R5 


ADD 


Q. PAR<R1),R5 


MOV 


R2>R0 


ADD 


#31. ,R0 


ASH 


#-5. ,R0 


ADD 


RO, R5 


TST 


#MIODBG 


BNE 


1* 


CMP 


R5, #3968. 


BLOS 


NOMAP 
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Get a mapped I/O buffer and control block. 



000254 004737 001434 
000260 103405 



000262 004737 000570 
000266 000261 
000270 000401 



000272 000241 



000274 012605 

000276 012604 

000300 012603 

000302 012602 

000304 012601 

000306 000207 



1«: 



CALL 
J3CS 



MIOGET 
MIOXIT 



;Get mapping buffer and control block 

; Br if mapping deferred till buffer freed 



Initiate a mapped I/O operation 

MIOBGN 

HI OX IT 
We do not have to do buffer mapping 



CALL 

SEC 

BR 



; Initiate the mapping 

; Indicate that mapping was needed 

; Finished 



MOHAP : CLC 

Finished 

MIOXIT; MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



; Indicate mapping not needed 



<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
»:SP)+, R2 
(SP)+>R1 
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000310 
000310 
000314 
000320 

000324 
000330 
000334 
000340 
000344 
000350 

000354 
000360 
000364 
000370 
000374 
000400 

000404 
000410 
000414 
000420 
000424 
000430 

000434 
000440 
000444 
000450 



000450 
000454 
000456 
000464 



000470 
000474 
000500 
000506 



Table of special function codes for certain devices. 

. MACRO SPFUN DEV, FUN, RTN 

. BYTE DEV, FUN 

. WORD RTN 

. ENDM SPFUN 



Define those devices which have specific 
require special procer-sintt. 



DEVTBi,.; 



SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 



SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 



DI*DY. 377, DYREAD 
DI*DY, 376, DYWRIT 
DI*DY, 375, DYWRIT 



DI*MT, 
DI*MT, 
DI$MT, 
DI$MT, 
DI*MT, 
DI*MT, 

DI*MM, 
DI*MM, 
DI*MM, 
DI$MM, 
DI$MM, 
DI«MM, 

DI*MS, 
DI«MS, 
DI*MS, 
DI*MS, 
DI*MS, 
DIfMS, 



377, CL RADR 

376, CLRADR 
374, WRTFUN 
373, CLRADR 
371, WRTFUN 

370, RDFUN 

377, CLRADR 
376, CLRADR 
374, WRTFUN 
373, CLRADR 

371, WRTFUN 

370. RDFUN 

377, CLRADR 
376, CLRADR 
374, WRTFUN 
373, CLRADR 

371, WRTFUN 
370, RDFUN 



SPFUN functions that 



Read 129 word sector 
Write 129 u^ord sector 
Write 129 word sector & del 



Wr i t e EOF 

Forward one block 

Write with extended 

Rewind 

Wri te 

Read 



DI*DX, 377, DXREAD 
DI*DX, 376, DXWRIT 
DI*DX, 375, DXWRIT 



DY 


377 - 


DY 


376 - 


DY 


375 - 


MT 


377 -- 


MT 


376 - 


MT 


374 ~ 


MT 


373 - 


MT 


371 " 


MT 


370 ~ 


MM 


377 - 


MM 


376 - 


MM 


374 - 


MM 


373 - 


MM 


371 " 


MM 


370 - 


MS 


377 - 


MS 


376 - 


MS 


374 - 


MS 


373 - 


MS 


371 - 


MS 


370 - 


DX 


377 - 


DX 


376 - 


DX 


375 - 



sap 



gap 



Write EOF 

Forward one block 

Write with extended 

Rewind 

Write 

Read 

Write EOF 

Forward one block 

Write with extended 

Rewind 

Write 

Read 



Read 65 word sector 
Write 65 word sector 
Write 65 word sector it del 



gap 



Dl-VEND: 



DY 377 — Read 129 wordB 



005003 
152761 
000137 



012702 
012703 
152761 
000137 



000201 

OOOOOOG 
000200 ' 



000201 
000001 
OOOOOOG 
000200 ' 



DYREAD: 



OOOOOOG 



MOV 
CLR 
BISB 
JMP 



DY 375,^376 



DYWRIT: 



OOOOOOG 



MOV 
MOV 
BISB 
JMP 



#129. ,R2 iSet word count 

R3 ; Set read flag 

#QF$OWC, Q. FLAG(R1 ) ; Set flag saying to use original word count 

CHKBUF j Process the operation 

- Write 129 words 

#129. ,R2 ; Set word count 

#1,R3 .:Set write flag 

#QF*OWC, Q. FLAG(R1 ) ; Set flag saying to use original word count 

CHKBUF i Process the operation 



DX 377 — Read 65 words 



TSMIO — 


- TSX-Pl 


us Happed I/O Su 


HIOCHK - 


— Determine if 


1/0 oper 


58 








59 


000512 


012702 


000101 


60 


000516 


005003 




61 


000520 


152761 


OOOOOOG 


62 


000526 


000137 


000200 ' 


63 








64 








65 








66 


000532 


012702 


000101 


67 


000536 


012703 


000001 


68 


000542 


152761 


OOOOOOG 


69 


000550 


000137 


000200 ' 


70 








71 








72 








73 


000554 


00 5061 


0000000 


74 


000560 


005061 


OOOOOOG 


75 


000564 


000137 


000272 ' 



DXREAD: MOV 
CLR 
OOOOOOG BISB 

JMP 

i DX 375/376 

f 

DXWRIT: MOV 
MOV 
OOOOOOG BISB 

JMP 



#65. / R2 ;Get word count 

R3 i Set read flag 

#GF*OWC^ <i. FLAG(R1 ) ; Set flag saying to use original word count 

CHKBUF ; Process the operation 

- Write 65 words 

#65. . R2 i Get word count 

#1, R3 i Set write flag 

#QF$OWC, 0. FLAG<R1 ) i Set flag saying to use original word count 

CHKBUF i Process the operation 



Clear buffer address for operations which do not require actual I/O. 



CLRADR: CLR 
CLR 
JMP 



Q. BUFF<R1) 
Q. PAR(Rl) 
NOMAP 



.; Clear unused buffer address 

i and PAR value 

jExit indicating no mapping needed 
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1 



3 








4 








5 








6 








7 








S 








9 








10 








11 


000570 


010246 




12 


000572 


010346 




13 








14 








15 








16 


000574 


01016G 


OOOOOOG 


17 


000600 


010265 


OOQQOOG 


IS 


000604 


110365 


0000000 


19 


000610 


016102 


0000000 


20 


000614 


162702 


OOOOOOG 


21 


000620 


005003 




22 


000622 


073227 


177772 


23 


000626 


066102 


OOOOOOG 


24 


000632 


010265 


OOOOOOG 


25 


000636 


000303 




26 


000640 


072327 


17777 h 


27 


000644 


010365 


0<:iQQQQ<^ 


28 








29 








30 








31 


000650 


105765 


OOOOOOG 


32 


000654 


001403 




33 


000656 


004737 


000676 ' 


34 


000662 


000402 




35 


000664 


004737 


001026' 


36 








37 








38 








39 


000670 


012603 




40 


000672 


012602 




41 


000674 


000207 





. SBTTL MIOBGN - Initiate a mapped I/O operation 

MIOBGN is called to initiate a mapped I/O operation. 

Inputs: 
Rl ~ Address of original I/O queue element. 
R2 = Actual word count. 
R3 = 0==>R eadi l==>Write 
R5 - Address of mapped I/O control block 



MIOBGN: MOV 
MOV 



R2, -(SP) 
R3, ~(SP) 



Set up information in the control block about this transfer. 



MOV Rl, MI*0QE<R5) 

MOV R2, MI*TRW<Rfv.) 

MOVE R3, MI$RWF(R5) 

MOV Q, BUFF(Rl), R2 

SUB #VPAR6, R2 

CLR R3 

ASHC #-6. , R2 

ADD 0. PAR<R1), R2 

MOV R2, MI*UBP(R5) 

SWAB R3 

ASH #-2, R3 

MOV R3, MI*UB0(R5) 



J Save address of original queue element 

j Total number of words to transfer 

i Set read/write flag (0=read. l=ujr i te) 

.: Get virtual address of user's buffer 

; Remove virtual buffer bias 

; Clear for sh if t 

i Convert address to 64-byte blk # S< offset 

jAdd base 64-byte block number 

;Thi5 is the 64-bytB block # of buffer base 

/Get byte within block to loui-order of R5 



1$: 



9*: 



; Save offset within 64-byte block 

Initiate the mapped I/O transfer 

Read or write operation? 

Br if read 

Start a mapped write 

■> Start a mapped read 



TSTB 


MI*RWF(R5) 


BEQ 


1* 


CALL 


MIOWRT 


BR 


9* 


CALL 


MIORD 


Finished 




MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





TSHIO ■■ 
MIOWRT 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



TSX-Flus Mapped I/O 3u MACRO V05. 04 Monday 21-Dec-S7 07:45 Page 5 
- Perform mapp«MJ write operation 



SBTTL MIOWRT --- Pe-rForm mapped write operation 



MIOWRT is called to perform a mapped write operation. 

It writes as much data as will Fit in the mapped I/O buffer and then 

allows a completion routine call to continue the write. 



I n p u t s ; 
R5 = Pointer to mapped I/O control block. 



000676 010146 
000700 010246 



000702 016-502 0000000 

000706 1 1 3700 0000000 

000712 000300 

000714 020200 

000716 101401 

000720 010002 

000722 010265 OOOOOOG 



000726 004737 OOOOOOG 



000732 004737 001200' 

000736 012761 000762' OOOOOOG 



000744 004737 001334' 



000750 004737 OOOOOOG 



000754 012602 
000756 012601 
000760 000207 



MIOWRT: MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 



Determine how much data to write this time 



1$: 



MOV 


MI*TRW(R5),R2 


MOVE 


VMI0SZ,RO 


SWAB 


RO 


CMP 


R2, RO 


QLOS 


1* 


MOV 


RO, R2 


MOV 


R2, MI*CWC(R5) 



Get total number of words left to write 

Get # blocks allocated for buffer 

Convert to # words 

Is request larger than buffer? 

Br if not 

Write only as much as buffer can hold 

Set current word count in control block 



Move data from user's buffer to the map buffer 

CALL MIOMWT ; Move data to map buffer 

Set up an 1/0 queue element for the mapped write 

CALL MIOOTQ ; Get a queue element 

MOV #MIOWRC, G. C0MP<R1 .> i Set address of completion routine 

Update the user's buffer address and remaining word count 
CALL MIOADV ; Advance buffer address 

Initiate the mapped write 

CALL SYQIO .; Start the write from the mapped buffer 

F i 11 i B h B d 



9*: 



MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





TSMIO — 
HIOWRC - 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

34 
35 
36 
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. BBTTL MIOWRC — Mapped write completion routine 

MIOWHC is called as a completion routine to a mapped write operation. 

Inputs; 
Rl "■ Address of mapped J/0 control block. 



000762 010105 



MIOWRC; MOV 



Rl, R5 



iGet address of mapped I/O control block 



000764 016500 OOOOOOG 

000770 016000 OOOOOOG 

000774 032760 OOOOOOC OOOOOOG 

001002 001006 



001004 005765 OOOOOOG 
001010 001403 



001012 004737 000676' 
001016 000402 



001020 004737 001156' 



001024 000207 



If end of file or hardware error was reported by handler, 
terminate the I/O operation. 

MOV MI$0QE(R5) , RO ; Get address of original queue element 

MOV Q. CSW<RO),RO ; Get address of channel block 

BIT #<CS$EOF!CS*ERR>, C. CSW<RO) ; End of file or hardware error? 

BME 1* J Br if yes — Terminate the transfer 

See if there is any more data remaining to be written 



TST 
BEQ 



MI$TRW<R5.> 
1* 



; Any data left to wT^ite' 
i Br if not 



There is data left to be written. 
Initiate another write. 



CALL 
BR 



MIOWRT 
9* 



There is no data left. 
Terminate the write. 



9* 



CALL 
Fini shed 

RETURN 



MIOFIN 



; Start another mapped write 



Entire I/O operation is finished 



i 

i 
t 
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i 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



001026 010146 
001030 010246 



001032 016502 0000000 

001036 113700 0000000 

001042 000300 

001044 020200 

001046 101401 

001050 010002 

001052 010265 0000000 



001056 004737 001200' 

001062 012761 001102' OOOOOOG 



001070 004737 0000000 



001074 012602 
001076 01260.1 
001100 000207 



. SBTTL MIORD 



Initiate a mapped read operation 



MIORD is called to initiate a mapped read operation. 

It reads as many words as will fit in the mapping buffer and uses 

a completion routine to finish the operation. 

Inputs: 
R5 = Address of mapped 1/0 control block. 



MIORD: 



MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



Determine how much data to read this time 



1*: 



MOV 


MI*TRW(R5), R2 


MDVB 


VMIOSZ, RO 


SWAB 


RO 


CMP 


R2, RO 


BLOS 


1* 


MOV 


RO, R2 


MOV 


R2, MI$CWC(R5) 



Oet an I/O queue element 



CALL 
MOV 



MIOGTQ 



Get number of words remaining to be read 

Get # blocks allocated for buffer 

Convert to # words 

Can we read all that is left? 

Br if yes 

No — Truncate to mapping buffer size 

Set current word count in control block 



; Get an I/O queue element 



#MiaRDC>0. COMP(Rl) i Set address of read completion routine 
Initiate the read 

i Eitart the read operation 



CALL 


SYQIO 


■-" i n i B h e d 




MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





TSMIO • 
MIORDC 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



SBTTL MIORDC 



Mapped read completion routine 



001102 010105 



00U04 004737 0000000 



MIORDC is called as a completion routine when a mapped read operation 
finishes. It moves the data that was read into the mapped buffer to the 
user's buffer and then checks to see if more data needs to be read. 

Inputs: 
Rl = Address of mapped I/O control block 

MIORDC; MOV R1,R5 ; Get address of mapped I/O control block 

Move data from system buffer to user's buffer 

CALL MIOMRD /Move data to user's buffer 

If end of file or hardware error was reported by handler* 
terminate the I/O operation. 



001110 016500 0000000 

001114 016000 0000000 

001120 032760 OOOOOOC 0000000 

001126 001010 



001130 004737 001334' 



001134 005765 0000000 
001140 001403 



001142' 004737 001026' 
001146 000402 



001150 004737 001156' 



MOV 
MOV 
BIT 
BNE 



MI*0QE<R5). RO .; Get address of original queue element 
Q. CSW(RO).RO ; Get address of channel block 
#<CS*EOF!CS*ERR>> C. CSW(RO) i End of file or hardware error? 
1* > Br if yes — Terminate the transfer 



Advance user's buffer pointer 

CALL MIOADV .; Advance user's buffer pointer 

See if there is more data remaining to be read 



TST MI*TRW<R5) 
BEQ 1* 



i Is there more data to be read? 
j Br if not 



Initiate another mapped read operation 



CALL 
BR 



MIORD 
9* 



j Start another mapped read 



001154 000207 



The I/O operation is complete 
1*: CALL MIOFIN < Say I/O operation is finished 

; F" i n i a h e d 
9*: RETURN 



TSMIO - 
MIOFIN 
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001156 010446 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 001160 016504 OOOOOOG 
13 
14 
15 
16 
17 

la 

19 
20 
21 



001164 004737 001606' 



001170 004737 OOOOOOG 



23 
24 
25 



001174 012604 
001176 000207 



. SBTTL MIOFIN -- Cump3.c?tion of a mapped I/O operation 

MIOFIN is called when a mapped I/O operation is completed. 

Inputs: 
R5 =■ Pointer to mapped I/O control block. 

MIOFIN: MOV R4, -<SP) 

Get address of original I/O queue element. 

MOV MI$0QE<R5), R4 ; Get address of original I/O queue element 
Free the mapped I/O data buffer and control blocli 

CALL MIOFRE J Say mapped I/O is finished 

Do completion processing for original queue element 

CALL lOCMPL i Do I/O completion 

Fini bhed 

MOV (SP)+, R4 
RETURN 



00 
00 
00 



1204 
1210 
1214 



010346 
010446 



016504 OOOOOOG 
016401 OOOOOOG 
004737 0000000 



ooooooc 



TSHIO — TSX-PluB Happed I/O Su 
HIDGTQ ■ — Get 1/(3 queue element 



1 
2 
3 
4 
'J 
6 
7 

a 

9 
10 

11 

12 
13 

14 001200 

15 001202 
16 
17 
18 
19 
20 

c:. 1 

22 
23 
24 

25 001220 010103 

26 001222 012700 

27 001226 012423 

28 001230 07700L' 
29 

30 
31 
32 

33 001232 105061 

34 001236 142761 
35 

36 

37 

38 

39 001244 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 001256 016504 

51 001262 132764 

52 001270 001010 

53 001272 016500 

54 001276 005764 

55 001302 002001 

56 001304 005400 

57 001306 010061 
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OOOOOOG 
000370 



OOOOOOG 



!761 OOOOOOG OOOOOOG 



001252 010561 OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



SBTTL MIOGTQ 



Gut I/O queue element for mapped I/O operation 



MIOGTQ is called to get an I/O queue element to use for a mapped 
I/O operation. In addition to getting a free queue element* this 
routine also sets up the tuord count and copies other information 

from the original queue €!l«;>ment. 

Inputs-: 
R5 -- Pointer to mapped 1/0 control block. 

Outputs: 
Rl - Address of queue element. 



MIOGTQ: MOV 
MOV 



R3, -<SP) 
R4, -(SP) 



Get a free I/O queue elt-ment 



MOV 
MOV 
CALL 



MI*0QE<R5),R4 
Q. UCSW<R4), Rl 
GETSYQ 



Get address of original queue element 

Get address of channel block 

Get a free I/O queue element for system use 



Copy information from original queue element to new queue element 



1$: 



MOV 
MOV 
MOV 
SOB 



Rl, R3 

#I0QSIZ/2, RO 
<R4)+, (R3>+ 
RO, 1* 



i Get address of new queue element 

i Get # words to copy 

iCopy contents of old queue element to new 



Clear job number field of 1/0 queue so completion routine will 
run in system state. 

CLRB Q. J0Q(R1} ; Set job number - O 
BICB #370, Q. JNUM<R1) i Set job number = O 

Set control flag in I/O queue element indicating that this I/O 
operation is a secondary operation for mapped I/O. 



BISB 



#QF*MIO, 0. FLAG<R1) iSecondary op for mapped I/O 



Store the address of the mapped I/O control block into the cell of 
the 1/0 queue element normally used for the channel number. 
This will cause the address of the mapped I/O control block to be 
passed to the completion routine in Rl. 



MOV R5, Q. CHAN<R1) 
Store actual word count 



; Set address of control block as "channel #" 



OOOOOOG 



MOV 

B I IB 

BNE 

MOV 

TST 

BGE 

MEG 

MOV 



MI*0QE<R5), R4 ; Get pointer to original Q element 

#QF*OWC, 0. FLAG<R4.> ; Should we always use original word count? 



3* 

MI*CWC(R5),R0 

Q. WCMr(R4) 

2* 

RO 

RO, Q. WCNT<R1 ) 



Br if yes 

Get current word count for this transfer 

Was original count positive or negative? 

Br if positive 

Make count negative 

Set word count in queue element 



TSMIO - 
MIOGTQ 



TBX-Plus 

Get I/O 
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queut; element for mapped I/O operation 
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58 
S9 
60 
61 
62 
63 
64 
65 
66 
67 
68 



001312 
001320 



001326 
001330 
001332 



012761 
016561 



1 2604 
012603 
000207 



Set the buffer address 



OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 



3$: 



MOV 
MOV 

F i n :i shed 



MOV 
M(W 
RETURN 



#VPAR6. O. BUFF<R1 ) j Set 
MI*SBP(R5),Gi. PAR(R1 ) , 



(SP)+, R4 
<SP)+, R3 



buffer virtual address 

Set 64-byte block number of buffer base 



TSMIO " 
HIOADV 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

3o 

37 

38 

39 

40 



001334 010246 
001336 010346 



001340 016502 0000000 

001344 006302 

001346 066502 0000000 

001352 005003 

001354 073227 177772 

001360 060265 0000000 

001364 000303 

001366 072327 177776 

001372 010365 0000000 



001376 016502 OOOOOOG 
001402 160265 OOOOOOG 



001406 062702 000377 

001412 072227 177770 

001416 016500 OOOOOOG 

001422 060260 OOOOOOG 



001426 012603 
001430 012602 
001432 000207 



. SBTTL HIOADV — Advance buffer address and word count 

MIOADV is called to update the buffer address and word count following 
a mapped I/O operation. 

I n p u t B : 
R5 = Pointer to mapped 1/0 control block. 



MIOADV: 



MOV 
MOV 



R2.. -<SP) 
R3, -<SP) 



Advance buffer address 



Get # words transferred this time 

Convert to # bytes 

Compute neuj buffer offset 

Clear for shift 

Compute # 64™byte blocks & offset 

Update 64-byte block base 

Get offset to low-order of R5 



i Netu offset within 64-bytB block 
decrease number of words left to transfer 



MOV 


MI*CWC<R5),R2 


ASL 


R2 


ADD 


MI*Ui30(R5),R2 


CLR 


R3 


ASHC 


#-6. , R2 


ADD 


R2, MI*UBP(R5> 


SWAB 


R3 


ASH 


#-2, R3 


MOV 


R3, MI$UB0<R5) 



MOV MI$CWC(R5>, R2 
SUB R2, MI$TRW(:R5) 

Advance file block number 





ADD 


#255. , R2 




ASH 


#-S. , R2 




MOV 


MI*0QE(R5),R0 




ADD 


R2> Q. BLKN<RO> 


1" i vi ; 


r. h e d 






MOV 


<SP)+, R3 




MOV 


<SP)+, R2 




RETURN 





; Get number of words transferred 
; Decrease number of words left 



j Convert # words to # blocks 

; Get pointer to original queue element 
j Advance block number 



I 

€ 
f 
I 
I 
€ 

i 
i 

i 

€ 
i 

c 

i 
i 
i 
i 
t 
4 

i 



TSMIO - 
MIDGET 



T S X - P 1 us fl a p p « n I/O S u 
• A i 1 o c a 1 1? a ino p p e d I/O 
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data buffer 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3B 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



BBTTL MIDGET — Allocate a mapped 1/0 data buffer 



001434 010346 



MIOOET is called to pain e;<clu5ive access to the I/O mapping data base. 

I n p u t B : 
Rl -•■ Address of I/O qupue f?lement 

Ouiputti: 
f?5 = Address of mapped I/O control block 
C "flag set ~=> Could not get a mapping buffer. 

Mapping request has been queued for later. 

MIDGET: MOV R3, -(OP) 

Get number of job that wants to do mapped I/O 



001436 
001442 



001444 
001452 
001456 



116103 
006303 



OOOOOOG 



MOVE Q. J0B<R1>,R3 
ASL R3 



i Get job number 

.: Convert to job index number 



Bee if there is a mapped I/O control block and data buffer available 



013705 
00 1 040 



OOOOOOG 



l.|i: DISABL 

MOV MIOBHD, R5 
BNE 2* 



Disable interrupts 

Is there a free buffer available? 

Br if yes 



There are no free mappincj buffers. 
Wait until one becomes fr-«->e. 



001460 005703 



001461 



00 1 027 



TST 
BME 



R3 
3* 



; i i Is system or user job doing I/O? 
i i i St if li^&r job 



System is trying to do mapped I/O. 

Oueue a request for a mapping buffer and then return with 

the C-flag set indicating that the operation has been deferred. 



001464 
001470 
001472 
001504 
001512 
001516 
001524 
001530 
001536 
001540 



001542 
001546 
001552 
001556 



013700 
001005 

016037 
010160 
013760 
010037 

000261 
000420 



012700 
004737 
004737 
000732 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 4$: 
OOOOOOG 



MOV 

BME 

DIE 

MOV 

MOV 

MOV 

MOV 

ENABL 

SEC 

BR 



MIOWHD, RO 
4$ 

#EM«M10 
MW*LNK(RO), MIOWHD 
Rli MWf IOQ<RO) ;; 
MIOSY«> MW«LWK(RO) 
RO. MIOSY« 



Get address of free queue block 
We better get one 
Die if we cannot queue request 
i ; Remove block from free list 
Save address of I/O queue element 
;;Put wait block on active list 



Enable interrupts 

Signal that operation is to be deferred 



9* 



OOOOOOG 
OOOOOOG 
OOOOOOG 



Suspend a job until mapping data becomes free 



3*: 



MOV 


#S*QMIO, RO 


CALL 


QN3PNX 


CALL 


CHKABT 


BR 


1* 



ij Waiting for mapped I/O 

i i Suspend job till mapping is free <Enable) 

Was job aborted while it was asleep? 

Go try to get the data base now 



There is a free mapping buffer. 
Claim it for our job. 



001560 016537 OOOOOOG OOOOOOG 2*: 



MOV 



MI*LNK(R5), MIOBHDi ;; Remove control block from free list 
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58 001566 

59 001574 110365 OOOOOOG 

60 001600 000241 
61 

62 
63 

64 001602 012603 

65 001604 000207 



ENABL 

MOVE 

CLC 



F- i n i shed 



9*: 



MOV 
RETURN 



R3. MI*JOB<Rb) 



iSP)+. R3 



; Enable interrupts 

; Save associated job number 

; Signal success on return 
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MIOFRE — Free a mappeii I/O data buff-er. 



1 
2 
3 
4 
5 
6 
7 

8 001606 010146 

9 001610 
10 

11 
12 

13 001616 013765 0000000 OOOOOOG 

14 001624 010537 OOOOOOG 
15 

16 
17 

15 001630 013700 OOOOOOG 
19 001634 001420 

20 
21 
22 
23 

24 001636 016037 OOOOOOG OOOOOOG 

25 001644 016001 OOOOOOG 

26 001650 013760 OOOOOOG OOOOOOG 

27 001656 010037 OOOOOOG 

28 001662 

29 001670 004737 000002' 

30 001674 000407 
31 

32 
33 

34 001676 

35 001704 012700 OOOOOOG 

36 001710 004737 OOOOOOG 
37 

38 
39 

40 001714 01260.1 

41 001716 00020/ 
42 

43 00000 .! 

Errors detected: 

*«* Assembler statistics 



. SBTTL MIOFRE — I-ree a mapped I/O data buffer, 

MIOFRE is called to free a mapped I/O data buffer-. 

Inputs: 
R5 = Pointer to mapped J/0 control block. 

MIOFRE: MOV R1,-(SP) 

DISABL ijiDisable interrupts 

F^ut control block back on f-ree list 

MOV MIOBHD, MI*U\IK<R5)i w Put control block back on free list 
MOV R5, MIOBHD i i ; 

See if there are any requests from the system for a mapping I/O buffer 



MOV 

BFO 



MI03YQ, RO 
1* 



i i i 1b there a pending system request? 

■> ; ; Br if not 



There is a pending request from the system for a mapping buffer. 
Start this request now. 



MOV 

MOV 

MOV 

MDV 

ENABL 

CALL 

BR 



; Remove wait queue element from active list 
Get address of original I/O queue element 
; J Put wait queue element back on free list 



MW*LMK<RO), MlOSYQi 
MW$IOQ<RO>. Rl ii 
MIOWHD> MW*LMK<RO) 
RO, MIOW.HD ; > 

; Enable interrupts 
MIOCHK i Initiate the mapped I/O operation 

9* 



Restart any jobs that are waiting for mapped I/O 



1$: 



9* : 



ENABL 




MOV 


#S*QMIO, RO 


CALL 


UREGO 


F i n i s h e d 




MOV 


(SP)-+-, Rl 


RETURN 





jiiEnable interrupts 
/Get wait state code 
i Restart any waiting jobs 



. END 



Work file resds 
Work file u^rites 
Size of work file 
Size of core pool 
Operating system 
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MI*RWF 


1-28 


4-J.0<s- 


4-31 










MI*SBP 


1-27 


10-62 












MI*TRW 


1 -28 


4-17!r 


5-15 


6 --20 


7-15 


8-30 


1 1 -27 


MI*UBO 


1-28 


4-27!;- 


11-16 


1 1 -22*- 








MI*UBP 


1-20 


4-24 i; 


11-19* 










MIOADV 


5-34 


8-26 


1 1 9# 










MIOBGN 


2-122 


4-1 1# 












MIOBHD 


1-27 


12-23 


12-57(5- 


13-13 


13-14* 






MIOCHK 


1-19 


2-16# 


13-29 










MIODBG 


1-29 


2-109 












MIOFIN 


6-32 


8-40 


9-S# 










MIOFRE 


9-16 


13-B# 












MIDGET 


2-117 


12- J 30 












MIOGTQ 


5-29 


7-25 


10~144S 










MIOMRD 


1-24 


8- J 4 












MIOMWT 


1-24 


5-25 












MIORD 


4-35 


7-1 0# 


8-35 










MIORDC 


7-26 


a-io# 












MIOSYQ 


1-31 


12-41 


12-421S- 


13-18 


13-24* 






MIOWHD 


1-31 


12-36 


12-39ii- 


1 3-26 


13-27-K- 






M.TOWRC 


5-30 


6-B# 












MIOWRT 


4-33 


5-:M)^fi 


6 26 










MIOXIT 


2-118 


2 -.124 


2-1 32# 










MW*IOQ 


1-31 


12-40i.^ 


1 3-25 










MW*LNK 


1-31 


12-39 


12~41*' 


1 3-24 


1 3-26« 







3-32 3-34 3-73# 



11-33 
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Cross referenc!? table <CPEF V05. 04) 

2-31 2-75 2-82 2-.U2 2-1 28# U-75 

12-22^- i2-43-K' 12-58* 13-9* 13-28* 13-34* 
11-34* 

2-100 3-73* 4-19 10-61* 
10-46* 

5-30* 7-26* 

6-14 8-20 

2-30 

2-2S 2-70* 3-47* 3-54* 3-61* 3-68* 10-39* 10-51 

2-3S 
10-34* 

10-33* 12--17 

2-104 3-74* 4-23 10-62* 
10-20 

2-00 2-87 2-93 10-54 10-57* 

2-25 10-39 

2-70 3-47 3-54 3-61 3-68 10-51 
12-50 

2~B6# 3-22 3-29 3-36 

12-49 13-35 

5-38 7-30 
12-38 

13-36 
5-16 7-16 
2-10.1 4-20 10-61 
2-81 2-92# 3-19 3-21 3-26 3-28 3-33 3-35 



NOMAP 


2- 


-26 


PSW 




-26 


Q. BLKN 




-26 


Q. BUFF 




-23 


Q. CHAN 




-27 


Q. COMP 




-23 


Q. CSW 




-23 


Q. DEVX 




-24 


Q. FLAG 




-30 


Q. FUNC 






Q. vJNUM 




-26 


Q. JOB 




-26 


Q. PAR 




-25 


Q. UCSW 




-31 


Q. WCNT 




-24 


QF*MIO 




-30 


QF*OWC 




-30 


QNSPNX 




-25 


RDFUN 


2- 


-62 


SisQMIO 




-25 


SYQIO 




-25 


SYSHLT 




-53 


TSMIO 




-6# 


UREGO 




-26 


VMIOSZ 




-25 


VPAR6 




"23 


WRTFUN 


2- 


-60 
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Cross reference? table (CRt^F V05. 04) 



1 3-9 

12-58 13-28 13-34 



DIE 


1~54# 


12-30 


DISABL 


1 -37# 


12-2;? 


ENABL 


l-43# 


12-43 


SPFUN 


3-4# 


3-13 




3-26 


3-27 




3-40 





3-14 3-15 3-17 3-18 3-19 3-20 3-21 3-22 3-24 3-25 

3-28 3-29 3-31 3-32 3-33 3-34 3-35 3~36 3-38 3-39 
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